home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 August / 1988-08.d64 / ml programming (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  798b  |  30 lines
  1. 100 data 169,254,162,32,141,240
  2. 110 data 32,142,241,32,169,63
  3. 120 data 32,210,255,32,207,255
  4. 130 data 201,65,144,244,201,91,176
  5. 140 data 240,141,244,32,32,207,255
  6. 150 data 201,65,144,230,201,91,176
  7. 160 data 226,141,245,32,32,207,255
  8. 170 data 201,13,208,216,32,210,255
  9. 180 data 169,0,162,33,133,253,134,254
  10. 190 data 173,240,32,197,253,173,241
  11. 195 data 32,229,254,176,25,160,0
  12. 196 data 173,244,32,145,253,173,245
  13. 197 data 32,200,145,253,165,253,141,240
  14. 198 data 32,165,254,141,241,32,208,168
  15. 199 data 160,0,173,244,32,209,253
  16. 200 data 208,6,200,173,245,32,209,253
  17. 210 data 240,12,165,253,166,254,24,105
  18. 220 data 2,144,189,232,176,186,162,0
  19. 230 data 169,42,32,210,255
  20. 240 data 232,224,16,208,248,96
  21. 250 print"[147]":poke 646,14:poke 53281,6:poke 53280,14
  22. 300 for j=8192 to 8331:
  23. 310 read x
  24. 320 t=t+x
  25. 330 poke j,x
  26. 340 next j
  27. 350 if t<>22019 then stop
  28. 360 print"sys 8192 to activate"
  29. 400 rem sys 8192
  30.